COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN
C00004 ENDMK
C⊗;
BEGIN
   REQUIRE SOURCE_FILE "MACRO.AL[AL,MSM]";
   DEFINE WITHDRAW(PIN,HOLE,I)=⊂
      DEFINE THIS_PIN = ⊂PIN&"_"&CVS(I)⊃;
      DEFINE THIS_PIN_GRASP= ⊂PIN&"_GRASP_"&CVS(I)⊃;
      DEFINE THIS_PIN_APPROACH= ⊂PIN&"_APPROACH_"&CVS(I)⊃;
      DEFINE THIS_PIN_GRASP_WIDTH= ⊂PIN&"_GRASP_WIDTH_"&CVS(I)⊃;

      OPEN HAND TO THIS_PIN_GRASP_WIDTH +0.5;
      MOVE ARM TO THIS_PIN_GRASP VIA THIS_PIN_APPROACH;
      CENTER ARM;
      AFFIX THIS_PIN TO ARM RIGIDLY;
      MOVE ARM TO THIS_PIN_APPROACH;
      ⊃;

   FRAME PIN_1,PIN_GRASP_1,PIN_GRASP_APPROACH_1;
   SCALAR PIN_GRASP_WIDTH_1;
   SCALAR I1; I1←1;
   WITHDRAW("PIN","PIN_GRASP","I1");
END;